/* Rexx script to test cgi variables */
options results

parse arg user

if User = "" then do
		say "Content-Type: text/html"
		say ""
		say "<TITLE>Arexx Finger Gateway running on an amiga</TITLE>"
		say "<H1>"||Img||"Finger Gateway</H1>"
		say ""
		say "<ISINDEX>"
		say "<p>The time is "||time('Civil')||" on "||date('Normal')||" here in Pittsburgh."
		say "<p>That means that approximately <b>"||num||"</b>  people, <b>"||num2||"</b> of them children, have been killed by guns in the United States so far this year."
		say '<p>This is a gateway to "finger". It is written in arexx, and running on an amiga.<br>'
		say 'Type a user@host combination in your browser''s'
		say "search dialog.<P>"

	end
else do
echo "Content-type: text/plain"
echo ""
echo "CGI/1.0 test script report:"
echo ""
getvar SERVER_SOFTWARE
echo "SERVER_SOFTWARE = " || result
getvar SERVER_NAME
echo "SERVER_NAME = " || result
getvar GATEWAY_INTERFACE
echo "GATEWAY_INTERFACE = " || result
getvar SERVER_PROTOCOL
echo "SERVER_PROTOCOL = " || result
getvar SERVER_PORT
echo "SERVER_PORT = " || result
getvar REQUEST_METHOD
echo "REQUEST_METHOD = " || result
getvar HTTP_ACCEPT
echo "HTTP_ACCEPT = " || result
getvar PATH_INFO
echo "PATH_INFO = " || result
getvar PATH_TRANSLATED
echo "PATH_TRANSLATED = " || result
getvar SCRIPT_NAME
echo "SCRIPT_NAME = " || result
getvar QUERY_STRING
echo "QUERY_STRING = " || result
getvar REMOTE_HOST
echo "REMOTE_HOST = " || result
getvar REMOTE_ADDR
echo "REMOTE_ADDR = " || result
getvar REMOTE_USER
echo "REMOTE_USER = " || result
getvar AUTH_TYPE
echo "AUTH_TYPE = " || result
getvar CONTENT_TYPE
echo "CONTENT_TYPE = " || result
getvar CONTENT_LENGTH
echo "CONTENT_LENGTH = " || result
getvar PATH_INFO
echo "PATH_INFO = " || result
end